home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Corruption 7
/
Corruption_07_19xx_ATG.d64
/
corruption 7_atg
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
30KB
|
8 lines
12345 sys2059
8334 (NULL)return!(NULL)return(NULL) d(NULL)Xnew(NULL)contexp7cmd(NULL)
61175 0(NULL)dimstepclosetab(input-input#.closeUl
1734 to{$7b}tab(exp,cmd(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)let(NULL)(NULL)new cmd(NULL),right$stop)not contIstop+ cmdinput(NULL)(NULL)inputiffn(NULL)8(NULL)ifinput(NULL)inputrestorefn(NULL)(NULL)
36229 dimspc((NULL)(NULL)asc(NULL)val cmd(NULL) contnewdimifstop(NULL) cmd(NULL)(NULL) cmd contIIinputif(NULL) cmdleft$ contE(NULL)inputrestorefngosubE(NULL)inputgosub8 dim(NULL)restoretoiffn(NULL)(NULL)ifinput(NULL)orasc(NULL)>restoreon(NULL)let(NULL)(NULL){$60}cos(NULL)step
64420 (NULL)(NULL)*&gosubasc(NULL)mid$(NULL)not{$60}inputreturn>(NULL)input(NULL)stepinput(NULL)fnreturnto(NULL)(NULL)asc(NULL)asc(NULL)tan(NULL)(NULL)(NULL)to(NULL)tan(NULL)(NULL)step7input(NULL)0(NULL)stepgosub(NULL)xstep
8200 returnspc(l^thensys2064 oh